Public Class frmPrintLocationLabel
    'Dim MyNeedQty As Integer = 0
    'Dim MyPrintQty As Integer = 0
    'Dim MySShelf As String = ""

    Private Sub frmPrintLocationLabel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddShelf(CmdShelf)
        Me.CmdShelf.Focus()
    End Sub
    Private Sub AddShelf(ByVal MyCB As ComboBox)
        Dim ds As New DataSet
        Dim MyShelf As String = ""
        Dim MySQLStr As String = ""
        Try
            MySQLStr = "Select * FROM WH_Shelf "
            ds = MySVRTVNWConnection.ExecuteProcedureSQLTVNWSVR(MySQLStr)
            If ds.Tables.Count <> 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
                For dsindex As Integer = 0 To ds.Tables(0).Rows.Count - 1
                    MyShelf = ds.Tables(0).Rows(dsindex)("Shelf")
                    With MyCB
                        .Items.Add(MyShelf)
                    End With
                Next
            End If
        Catch ex As Exception
            ErrRecording("", "frmPrintLocationLabel/AddShelf", ex.Message)
        End Try
    End Sub

    Private Sub CmdQty_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CmdQty.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            MySShelf = Me.CmdShelf.Text
            If MySShelf = "" Then
                MessageBox.Show("YEU CAU CHON KE NHA")
            Else
                MyNeedQty = Me.CmdQty.Text
                Me.CmdShelf.Focus()
                Me.CmdQty.Text = ""
                If MyNeedQty > 27 Then
                    MessageBox.Show("KHONG NHAP SO LUONG > 27")
                Else
                    UploadLOCLabel()
                    'MySShelf = ""
                    ' MyNeedQty = ""
                End If
            End If
        End If
    End Sub

    Private Sub CmdShelf_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles CmdShelf.KeyPress
        If e.KeyChar = ChrW(Keys.Enter) Then
            MySShelf = Me.CmdShelf.Text
            Me.CmdQty.Focus()
        End If
    End Sub

    Private Sub CmdPrintView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPrintView.Click
        frmPrintLOCLabel.Show()
    End Sub


    Private Sub UploadLOCLabel()
        Dim MyResult As Boolean = False
        Dim MySQLStr As String = ""
        Dim ds As DataSet
        Dim MyAutoID As String = Format(Now(), "yyMMddhhmmss")
        Dim MyID As String = MySShelf
        Dim MyPQty As Integer = 0
        Dim MyRemainQty As Integer = 0
        Try
            'MySQLStr = "Select * from WH_PrintLocationLabel where finishflg is null"
            'ds = MySVRTVNWConnection.ExecuteProcedureSQLTVNWSVR(MySQLStr)
            'If ds.Tables.Count <> 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
            '    For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            '        If (CInt(ds.Tables(0).Rows(i)("Qty")) - 2) <= CInt(ds.Tables(0).Rows(i)("ActQtyApply")) Then
            '            MySQLStr = "UPDATE WH_PrintLocationLabel SET finishflg = '1' WHERE ID ='" & ds.Tables(0).Rows(i)("ID") & "'"
            '            If MySVRTVNWConnection.ExecuteSQLTVNWSVR(MySQLStr) = False Then
            '                ErrRecording("", "frmPrintLocationLabel/UploadLOCLabel", "CHUA CAP finishflg")
            '            End If
            '        End If
            '    Next
            'End If
            'MySQLStr = "Select * from WH_PrintLocationLabel where finishflg is null and Shelf ='" & MySShelf & "'"
            'ds = MySVRTVNWConnection.ExecuteProcedureSQLTVNWSVR(MySQLStr)
            'If ds.Tables.Count <> 0 AndAlso ds.Tables(0).Rows.Count > 0 Then
            '    For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
            '        MyRemainQty = MyRemainQty + (CInt(ds.Tables(0).Rows(i)("Qty")) - CInt(ds.Tables(0).Rows(i)("ActQtyApply")))
            '    Next
            'End If
            'If (MyRemainQty - 2) > MyNeedQty Then
            '    MessageBox.Show("NHAN KE " & MySShelf & ".CON TON " & MyRemainQty - 2 & " NHAN. KHONG DUOC IN TIEP")
            '    Exit Sub
            'ElseIf MyRemainQty - 2 > 0 Then
            '    MyNeedQty = MyNeedQty - (MyRemainQty - 2)
            '    MessageBox.Show("NHAN KE " & MySShelf & ".CON TON " & MyRemainQty - 2 & " NHAN. HE THONG IN CHO BAN " & MyNeedQty & " NHAN")
            'End If
            If MyNeedQty = 1 Or MyNeedQty = 2 Or MyNeedQty = 3 Then
                MyPQty = 3
                MyPrintQty = 3
            ElseIf MyNeedQty = 4 Or MyNeedQty = 5 Or MyNeedQty = 6 Then
                MyPQty = 3
                MyPrintQty = 6
            ElseIf MyNeedQty = 7 Or MyNeedQty = 8 Or MyNeedQty = 9 Then
                MyPQty = 3
                MyPrintQty = 9
            ElseIf MyNeedQty = 10 Or MyNeedQty = 11 Or MyNeedQty = 12 Then
                MyPQty = 4
                MyPrintQty = 12
            ElseIf MyNeedQty = 13 Or MyNeedQty = 14 Or MyNeedQty = 15 Then
                MyPQty = 5
                MyPrintQty = 15
            ElseIf MyNeedQty = 16 Or MyNeedQty = 17 Or MyNeedQty = 18 Then
                MyPQty = 6
                MyPrintQty = 18
            ElseIf MyNeedQty = 19 Or MyNeedQty = 20 Or MyNeedQty = 21 Then
                MyPQty = 7
                MyPrintQty = 21
            ElseIf MyNeedQty = 22 Or MyNeedQty = 23 Or MyNeedQty = 24 Then
                MyPQty = 8
                MyPrintQty = 24
            ElseIf MyNeedQty = 25 Or MyNeedQty = 26 Or MyNeedQty = 27 Then
                MyPQty = 9
                MyPrintQty = 27
            Else
                MyPQty = MyNeedQty / 3
                MyPrintQty = 27
            End If
            'MySQLStr = "INSERT INTO [WH_RawPrintLocationLabel]([IDAuto],[ID],[Shelf],[PrintTime],[Qty],[NeedQty],[ActQtyApply],[Code],[Marking])" _
            '& " VALUES ('" & MyAutoID & "','" & MyID & "','" & MySShelf & "','" & Now() & "'," & MyPrintQty & "," & MyNeedQty & ",0,'" & CurrentCode & "','1')"
            'If MySVRTVNWConnection.ExecuteSQLTVNWSVR(MySQLStr) = False Then
            '    MessageBox.Show("CHUA CAP NHTA DC DU LIEU WH_RawPrintLocationLabel")
            '    ErrRecording("", "frmPrintLocationLabel/UploadLOCLabel", "CHUA CAP NHTA DC DU LIEU WH_RawPrintLocationLabel")
            'Else
            '    MySQLStr = "Select * from WH_PrintLocationLabel where ID ='" & MyID & "'"
            '    ds = MySVRTVNWConnection.ExecuteProcedureSQLTVNWSVR(MySQLStr)
            '    If ds.Tables.Count <> 0 AndAlso ds.Tables(0).Rows.Count = 1 Then
            '        MySQLStr = "UPDATE WH_PrintLocationLabel SET [Qty] = [Qty] +  " & MyPrintQty & ", [NeedQty] = [NeedQty] + " & MyNeedQty & "  WHERE ID ='" & MyID & "'"
            '        If MySVRTVNWConnection.ExecuteSQLTVNWSVR(MySQLStr) = False Then
            '            MessageBox.Show(" update CHUA CAP NHTA DC DU LIEU WH_RawPrintLocationLabel")
            '            ErrRecording("", "frmPrintLocationLabel/UploadLOCLabel", " update CHUA CAP NHTA DC DU LIEU WH_PrintLocationLabel")
            '        Else
            '            MyResult = True
            '        End If
            '    Else
            '        MySQLStr = "INSERT INTO [WH_PrintLocationLabel]([ID],[Shelf],[PrintTime],[Qty],[NeedQty],[ActQtyApply],[Code],[Marking])" _
            '        & " VALUES ('" & MyID & "','" & MySShelf & "','" & Now() & "'," & MyPrintQty & "," & MyNeedQty & ",0,'" & CurrentCode & "','1')"
            '        If MySVRTVNWConnection.ExecuteSQLTVNWSVR(MySQLStr) = False Then
            '            MessageBox.Show("CHUA CAP NHTA DC DU LIEU WH_RawPrintLocationLabel")
            '            ErrRecording("", "frmPrintLocationLabel/UploadLOCLabel", "CHUA CAP NHTA DC DU LIEU WH_PrintLocationLabel")
            '        Else
            '            MyResult = True
            '        End If
            '    End If
            'End If
            'If MyResult = True Then
            dsObj.MainTable.Clear()
            For i As Integer = 1 To MyPQty
                dsObj.MainTable.AddMainTableRow(MySShelf, MySShelf, MySShelf, CurrentCode, "", "", "", "", "", "", "", "", "", "")
            Next
            'End If
        Catch ex As Exception
            ErrRecording("", "frmPrintLocationLabel/UploadLOCLabel", ex.Message)
        End Try
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub CmdQty_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdQty.SelectedIndexChanged

    End Sub

    Private Sub CmdShelf_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdShelf.SelectedIndexChanged

    End Sub
End Class